home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8602.d64 / kreiszahl pi (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  110b  |  9 lines
  1. 10 FORI=0TO12
  2. 20 W=-(U=0)
  3. 30 O=2*SQR(3)*W+O
  4. 40 U=3*W+U
  5. 50 O=2*O*U/(O+U)
  6. 60 U=SQR(O*U)
  7. 70 PRINT6*2^I,U;O
  8. 80 NEXT
  9.